Viết hàm để kiểm tra một số nguyên N có phải là số chính phương hay không ?
bài 1 :
nhập vào số nguyên n . kiểm tra n là số chẳng hay số lẻ
bài 2:
nhập vào số n . kiểm tra n có phải là số chính phương không . số chính phương bằng bình phương của một số
Bài 1:
Program HOC24;
uses crt;
var n: integer;
begin
clrscr;
write('Nhap N: '); readln(n);
if n mod 2 = 0 then write(n,' la so chan') else write(n,' la so le');
readln;
end.
Bài 2:
Program HOC24;
uses crt;
var n: integer;
begin
clrscr;
write('Nhap N: '); readln(n);
if n = sqr(trunc(sqrt(n))) then write(n,' la so chinh phuong') else (n,' khong phai la so chinh phuong');
readln;
end.
Viết chương trình kiểm tra một số có phải là số chính phương hay không số được nhập là số nguyên dương
uses crt;
var n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
readln;
end.
Nhập số nguyên dương n từ bàn phím. Kiểm tra số nguyên dương n có phải số chính phương hay không
#include <bits/stdc++.h>
using namespace std;
long long n,x;
int main()
{
cin>>n;
x=sqrt(n);
if (x*x==n) cout<<n<<" la so chinh phuong";
else cout<<n<<" khong la so chinh phuong";
return 0;
}
Viết thuật toán và viết chương trình : Nhập vào một số kiểm tra xem số đó có phải là số chính phương hay không
Thuật toán:
-Bước 1: Nhập n
-Bước 2: Nếu \(\sqrt{n}=trunc\left(\sqrt{n}\right)\) thì n là số chính phương
không thì n không phải là số chính phương
-Bước 3: Kết thúc.
Viết chương trình
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<0 then writeln(n,' khong la so chinh phuong')
else begin
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
end;
readln;
end.
Nhập n số nguyên từ bàn phím in ra màn hình tổng các số chính phương, kiểm tra 1 số có phải là số chính phương hay không, sau đó cộng lại
Số chính phương là một số nguyên dương bằng bình phương của một số nguyên dương. Ví dụ: 1, 4, 9, 16, 100 … là những số chính phương; còn 3, 8, 15 … không phải là những số chính phương.
Cho trước một số nguyên dương n. Em hãy kiểm tra xem n có phải là số chính phương không?
Input: Một dòng duy nhất chứa số nguyên dương n.
Output: Đưa ra thông báo "yes" nếu n là số chính phương, ngược lại thông báo "no".
const
fi='sochinhphuong.inp'
fo='sochinhphuong.out'
var f,g:text;n:longint;
function scp(n:longint):boolean;
begin
if (sqr(trunc(sqrt(n)))=n) then exit (true);
exit (false);
end;
begin
assign(f,fi);reset(f);
assign(g,fo);rewrite(g);
readln(f,n);
if scp(n) then writeln(g,'yes') else
writeln(g,'no');
close(f);close(g);
end.
Viết chương trình kiểm tra số nguyên dương n có phải là số lẻ hay ko?Hàm trả về giá trị true nếu n là số lẻ , hàm trả về giá trị false nếu n không là số lẻ
program CheckOddNumber;
function IsOddNumber(n: integer): boolean;
begin
if n mod 2 = 1 then
IsOddNumber := true
else
IsOddNumber := false;
end;
var
n: integer;
begin
writeln('Nhap mot so nguyen duong: ');
readln(n);
if IsOddNumber(n) then
writeln(n, ' la so le.')
else
writeln(n, ' ko la so le.');
readln;
end.
Mọi người ai làm được giúp mình với ạ mình đang cần gấp
Sử dụng phương pháp làm mịn dần để giải bài toán sau: Cho trước số tự nhiên không âm n, viết chương trình kiểm tra xem số n có phải là số nguyên tố hay không? Chương trình cần thông báo "CÓ" nếu n là số nguyên tế, ngược lại thông báo "KHÔNG".
THAM KHẢO!
def is_prime(n):
if n <= 1:
return "KHÔNG"# Trường hợp n <= 1 không phải số nguyên tố
elif n <= 3:
return "CÓ"# Trường hợp n = 2 hoặc n = 3 là số nguyên tố
elif n % 2 == 0:
return "KHÔNG"# Trường hợp n chẵn lớn hơn
Viết chương trình nhập vào một số nguyên N từ bàn phím, sau đó kiểm tra N có phải là số nguyên tố hay không?
program kiem_tra_so_nguyen_to;
var
N, i: Integer;
laSoNguyenTo: Boolean;
begin
Write('Nhap vao mot so nguyen duong N: ');
Readln(N);
laSoNguyenTo := True;
if (N < 2) then
laSoNguyenTo := False
else
begin
for i := 2 to N - 1 do
begin
if (N mod i = 0) then
begin
laSoNguyenTo := False;
Break;
end;
end;
end;
if (laSoNguyenTo) then
Writeln(N, ' la so nguyen to')
else
Writeln(N, ' khong la so nguyen to');
Readln;
end.